package DIME::View::Info;

sub new {

	my $class  = shift;
	my $parent = shift;
		
	my $T = {
        parent => $parent,
	};
		
	bless $T, $class;

    $T->frame();

	return $T;
}



sub frame {
    my $self = shift;
    
    # Information Frame
	$self->{frame} = $self->{parent}{MW}->Frame(-relief => 'raised',
								  -bd     => 2,
								  -bg     => 'grey',
								  )->pack(-side => 'bottom', -fill => 'x');
	$self->{frame}->Label(-text => 'Status: ',
			  -bg   => 'grey',
			  -fg   => 'blue',
			  )->pack(-side => 'left');
	
	# Store tk object
	$self->{frame}->Label(-relief       => 'sunken', 
			  -textvariable => \$self->{filename}, 
			  -anchor       => 'w',
			  -bg           => 'grey',
			  -fg           => 'blue',
			  )->pack(-side   => 'left', -fill => 'x', -expand => 'x');

	$self->{frame}->Label(-text => 'Last Search Count: ',
			  -bg   => 'grey',
			  -fg   => 'blue',
			  )->pack(-side => 'left');

	# Store tk object
	$self->{frame}->Label(-relief       => 'sunken', 
			  -textvariable => \$self->{searchcount}, 
			  -anchor       => 'w',
			  -bg           => 'grey',
			  -fg           => 'blue',
			  )->pack(-side   => 'left', -fill => 'x', -expand => 'x');

    $self->{frame}->pack();
    	
}



1;



__END__